library(openxlsx)
sample1<-read.xlsx("http://kanggc.iptime.org/book/data/score.xlsx")
sample1