鍦≧璇█涓紝鍙互浣跨敤S3銆丼4鍜孯C绫绘潵瀹炵幇闈㈠悜瀵硅薄缂栫▼銆傚叾涓紝S3鏄渶绠€鍗曠殑闈㈠悜瀵硅薄绯荤粺锛孲4鏄竴绉嶆洿鍔犱弗鏍煎拰澶嶆潅鐨勭郴缁燂紝鑰孯C绫诲垯鏄竴绉嶇敤浜庡疄鐜板紩鐢ㄨ鏁扮殑闈㈠悜瀵硅薄绯荤粺銆?/p>

涓嬮潰鏄竴涓畝鍗曠殑绀轰緥鏉ュ睍绀哄浣曚娇鐢⊿3鏉ュ疄鐜伴潰鍚戝璞＄紪绋嬶細

# 鍒涘缓涓€涓柊鐨勭被
create_person <- function(name, age){
  person <- list(name = name, age = age)
  class(person) <- "person"
  return(person)
}

# 鍒涘缓涓€涓柟娉曟潵鎵撳嵃浜哄憳淇℃伅
print.person <- function(x){
  cat("Name:", x$name, "\n")
  cat("Age:", x$age, "\n")
}

# 鍒涘缓涓€涓柊鐨勪汉鍛樺璞?/span>
person1 <- create_person("Alice", 30)

# 璋冪敤鎵撳嵃鏂规硶
print(person1)

鍦ㄨ繖涓ず渚嬩腑锛屾垜浠鍏堝垱寤轰簡涓€涓悕涓?code>person鐨勭被锛屽苟瀹氫箟浜嗕竴涓?code>create_person鐨勫嚱鏁版潵鍒涘缓涓€涓柊鐨勪汉鍛樺璞°€傜劧鍚庯紝鎴戜滑瀹氫箟浜嗕竴涓?code>print.person鐨勬柟娉曟潵鎵撳嵃浜哄憳瀵硅薄鐨勪俊鎭€傛渶鍚庯紝鎴戜滑鍒涘缓浜嗕竴涓悕涓?code>person1鐨勪汉鍛樺璞″苟璋冪敤浜嗘墦鍗版柟娉曟潵鎵撳嵃璇ュ璞＄殑淇℃伅銆?/p>

閫氳繃杩欑鏂瑰紡锛屾垜浠彲浠ヤ娇鐢⊿3鏉ュ疄鐜扮畝鍗曠殑闈㈠悜瀵硅薄缂栫▼銆傚鏋滈渶瑕佹洿鍔犲鏉傚拰涓ユ牸鐨勭郴缁燂紝鍙互鑰冭檻浣跨敤S4鎴朢C绫绘潵瀹炵幇闈㈠悜瀵硅薄缂栫▼銆?/p>