FB_analysis

dir="C:/Users/User/data/KoWJ"

setwd(dir)

###data manipulation

like_data=data.frame("ID"="1","first_date"=NA,"last_date"=NA,"count"=0,
    stringsAsFactors=F)


for(i in 1:length(dir())){
    load(dir()[i])
    post_date=as.Date(post$post$created_time)
    for(j in 1:dim(post$likes)[1]){
        id=post$likes$from_id[j]
        if(dim(like_data[like_data$ID==id,])[1]==0){
            like_data[dim(like_data)[1]+1,]=data.frame(id,post_date,post_date,1,
            stringsAsFactors=F)
        } else {
            like_data$count[like_data$ID==id]=like_data$count[like_data$ID==id]+1
            like_data$last_date[like_data$ID==id]=post_date
        }
    }
}