如何用R软件做多类别Logistic回归

$ 没能打出来，注意斜体的部分其实是$

z <- summary(result)￥coefficients/summary(result)￥standard.errors
  p <- (1-pnorm(abs(z),0,1))*2
  out <- data.frame(cbind(names(tdata)[q], t(summary(result)￥coefficients[,2]), t(p[,2])))
  timo <- rbind(timo,out)

注意￥其实是英文符号里的美元符号