Question

我有一个数据框，其中包含约9000行人类编码数据，每个项目有两个编码器，因此大约有4500个唯一对。我想将数据集分成这些对中的每对，因此，大约有4500个数据帧，对分配的分数运行kripp.alpha，然后将其保存到我编写的编码器表中。我无法执行此循环。

我可以使用以下方法使其单独工作：

example.m <- as.matrix(example.m)
s <- kripp.alpha(example.m)
example$alpha <- s$value

但是，在尝试循环时，运行此程序时出现“在get（v）中出现错误：找不到对象'NA'”

for (i in items) {
  v <- i
  v <- v[c("V1","V2")]
  v <- assign(v, as.matrix(get(v)))
  s <- kripp.alpha(v)
  i$alpha <- s$value
}

或者在运行时得到“在i $ alpha <-s $ value中：将LHS强制转换为列表”：

for (i in items) {
  i.m <- i[c("V1","V2")]
  i.m <- as.matrix(i.m)
  s <- kripp.alpha(i.m)
  i$alpha <- s$value
}

这是一组示例数据。项目是单个数据框的列表。

l <- as.data.frame(matrix(c(4,3,3,3,1,1,3,3,3,3,1,1),nrow=2))
t <- as.data.frame(matrix(c(4,3,4,3,1,1,3,3,1,3,1,1),nrow=2))

items <- c("l","t")

我确信这是一个基本问题，但是我想要的是每个文件，即在末尾添加带有alpha分数的列。谢谢！

Answer 1

当通过字符串引用时，您的问题是范围界定和从对象中提取名称。您需要<div class="featured-block" style="display:flex; justify-content: center;">  <a href="https://www.google.com/" class="featured-block__item cf"> <div class="featured-block__item-inner"> <figure class="featured-block__image img-fit" itemprop="image" itemscope="" itemtype="http://schema.org/ImageObject"> <img class="default-opacity" src="http://i.imgur.com/EUqZ1Er.png" data-fallback-img="http://i.imgur.com/EUqZ1Er.png" alt="Outburst"> </figure> </div> </a> <a href="https://www.facebook.com/" class="featured-block__item cf"> <div class="featured-block__item-inner"> <figure class="featured-block__image img-fit" itemprop="image" itemscope="" itemtype="http://schema.org/ImageObject"> <img class="default-opacity" src="http://i.imgur.com/D5yaJeW.png" data-fallback-img="http://i.imgur.com/D5yaJeW.png" alt="L'Essentiel with Esther Bégin"> </figure> </div> </a> <a href="https://www.linkedin.com/" class="featured-block__item cf"> <div class="featured-block__item-inner"> <figure class="featured-block__image img-fit" itemprop="image" itemscope="" itemtype="http://schema.org/ImageObject"> <img class="default-opacity" src="http://i.imgur.com/R7A9JXc.png" data-fallback-img="http://i.imgur.com/R7A9JXc.png" alt="PrimeTime Politics"> </figure> </div> </a> <a href="https://twitter.com" class="featured-block__item cf"> <div class="featured-block__item-inner"> <figure class="featured-block__image img-fit" itemprop="image" itemscope="" itemtype="http://schema.org/ImageObject"> <img class="default-opacity" src="https://i.imgur.com/YhaIsPB.png" data-fallback-img="https://i.imgur.com/YhaIsPB.png" alt="PrimeTime Politics"> </figure> </div> </a>  </div>使用某些对象才能使当前方法有效。

这是另一种解决方案

 Vector3 spawingPos = new Vector3();

 Instantiate(bulletPrefab, spawingPos, new quaternion());

现在，您可以eval()直接在列表中的元素上。

library("irr") # For kripp.alpha

# Produce the data
l <- as.data.frame(matrix(c(4,3,3,3,1,1,3,3,3,3,1,1),nrow=2))
t <- as.data.frame(matrix(c(4,3,4,3,1,1,3,3,1,3,1,1),nrow=2))

# Collect the data as a list right away
items <- list(l, t)

产生

sapply()

循环更改为矩阵然后运行测试

1 个答案: