Hi everyone,

I am a new R user. I am running into a problem, which I can't resolve. Can someone please look at my code below and tell me why I get the following error:

"Error: Assigned data `sum(temp$consultatop)/nrow(temp)`

must be compatible with existing data.

Error occurred for column `consultatop`

.

x Can't convert from to due to loss of precision.

- Locations: 1.""

My Code:

## First, list of unique alliance

alliances <- unique(bc_ext$atopid)

allience <- as.data.frame(alliances)

for(i in 1:length(alliances)){

## subset data on all states in alliance

temp <- filter(bc_ext, atop$atopid == alliances[i])

all_alliances[i, 1] <- temp$atopid[1]

all_alliances[i, 2] <- sum(temp$macowe)/nrow(temp)

all_alliances[i, 3] <- sum(temp$maconc)/nrow(temp)

all_alliances[i, 4] <- sum(temp$maconp)/nrow(temp)

all_alliances[i, 5] <- sum(temp$nmacowe)/nrow(temp)

all_alliances[i, 6] <- sum(temp$nmaroir)/nrow(temp)

all_alliances[i, 7] <- sum(temp$condother)/nrow(temp)

all_alliances[i, 8] <- sum(temp$renounceok)/nrow(temp)

all_alliances[i, 9] <- sum(temp$renounceproh)/nrow(temp)

all_alliances[i, 10] <- sum(temp$renouncecond)/nrow(temp)

all_alliances[i, 11] <- sum(temp$offenseatop)/nrow(temp)

all_alliances[i, 12] <- sum(temp$defenseatop)/nrow(temp)

all_alliances[i, 13] <- sum(temp$neutatop)/nrow(temp)

all_alliances[i, 14] <- sum(temp$consultatop)/nrow(temp)

all_alliances[i, 15] <- sum(temp$milcontact)/nrow(temp)

all_alliances[i, 16] <- sum(temp$commondef)/nrow(temp)

all_alliances[i, 17] <- sum(temp$intcom)/nrow(temp)

all_alliances[i, 18] <- sum(temp$milaid)/nrow(temp)

all_alliances[i, 19] <- sum(temp$base)/nrow(temp)

all_alliances[i, 20] <- sum(temp$contrib)/nrow(temp)

all_alliances[i, 21] <- sum(temp$organ1)/nrow(temp)

all_alliances[i, 22] <- sum(temp$ecaid)/nrow(temp)

all_alliances[i, 23] <- sum(temp$secrecy)/nrow(temp)

}