用于循环因子数据

作者: 蜡笔小辛
发布时间: 2024-04-18 12:59:50 (14天前)
转自：

3 条回复

0#
回复此人
甲基蓝 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <pre> <code> t(sapply(split(predicted == observed, observed), table)) # FALSE TRUE #a 2 1 #b 1 1 #c 1 1 </code> </pre> </DIV>

编辑
1#
回复此人
早岁那知世事艰 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 我建议你用 <code> data.table </code> 用于定义结果的显式清洁方式： </p> <pre class="lang-r prettyprint-override"> <code> library(data.table) observed=c("a", "b", "c", "a", "b", "c", "a") predicted=c("a", "a", "b", "b", "b", "c", "c") dt <- data.table(observed, predicted) res <- dt[, .( T = sum(observed == predicted), F = sum(observed != predicted)), observed ] res # observed T F # 1: a 1 2 # 2: b 1 1 # 3: c 1 1 </code> </pre> </DIV>

编辑

登录后才能参与评论