第七色在线视频,2021少妇久久久久久久久久,亚洲欧洲精品成人久久av18,亚洲国产精品特色大片观看完整版,孙宇晨将参加特朗普的晚宴

為了賬號(hào)安全,請(qǐng)及時(shí)綁定郵箱和手機(jī)立即綁定
已解決430363個(gè)問題,去搜搜看,總會(huì)有你想問的

R語言dataframe轉(zhuǎn)換 ?

R語言dataframe轉(zhuǎn)換 ?

拉風(fēng)的咖菲貓 2018-12-14 19:15:39
圖1:我現(xiàn)在有一個(gè)dataframe記錄的是人們(ID)出行時(shí)間(Date)和出發(fā)站(ORI); 我現(xiàn)在想檢測(cè)每個(gè)人每天第一次出行的始發(fā)站是哪里(不管ID在一天之內(nèi)出行多少次 只留下每天的第一次出行記錄)(做成圖2的樣子)請(qǐng)問這個(gè)代碼改怎么寫? 需要兩次for循環(huán)么 或者有其他更簡(jiǎn)便的方法 謝謝 
查看完整描述

1 回答

?
慕田峪9158850

TA貢獻(xiàn)1794條經(jīng)驗(yàn) 獲得超7個(gè)贊

setwd("E://xuexi//bishe//datasets")
options(stringsAsFactors=F)
data <- read.table("ant-1.7.csv",header=FALSE,sep=",")
#####################################################################
# CE: model evaluation criteria for cost-effectiveness ( 5%, 10%, 15%, 20%, ..., 100%)
#####################################################################
#建一個(gè)列REL,對(duì)于列bug中>0的則REL為1,這么寫報(bào)錯(cuò) 參數(shù)長(zhǎng)度為0
#data
data$REL <- data$bug
for(i in 1:length(data$REL)){
if(data$bug[i] > 0)
data$REl[i] <- 1#參數(shù)長(zhǎng)度為0

查看完整回答
反對(duì) 回復(fù) 2019-01-06
  • 1 回答
  • 0 關(guān)注
  • 1579 瀏覽

添加回答

舉報(bào)

0/150
提交
取消
微信客服

購(gòu)課補(bǔ)貼
聯(lián)系客服咨詢優(yōu)惠詳情

幫助反饋 APP下載

慕課網(wǎng)APP
您的移動(dòng)學(xué)習(xí)伙伴

公眾號(hào)

掃描二維碼
關(guān)注慕課網(wǎng)微信公眾號(hào)