小编Wor*_*ice的帖子

如何更改Rpres中数学公式的字体大小？[编者注:'Rpres'是RStudio用于其"Presentation"文件的文件扩展名.它显然被用户采用作为IDE的那一部分的简写.] RPres中的代码框大小和字体大小面临类似的问题,但它没有解决数学公式的问题,这不是一个问题的一部分.代码与文本分离,但是是一大块LaTeX代码.

例如,请考虑使用默认设置生成的幻灯片的此部分:

The average height is 175cm, with a standard deviation of 10. 
The z-score for a student 163cm is given by the formula:

$$z = (x - \mu)/\sigma$$

where $x$ is the student of our interest, $\mu$ is the distribution mean of
the school and $\sigma$.

返回:

果然,RPres中代码框大小和字体大小中建议的方法不会影响数学公式的大小.

我仍然试图获得函数式编程的思维方式,因此我不确定这个问题是否有意义:是否可以在F#中进行作用域分配,因为它在R中？

让我们假设我设计一个功能split x时,x = y + 10z为abs(int:y) <= 5和abs(int:z).

 let split x =
    let z = abs(x / 10)
    let modz = abs(x % 10)
    let y =
            if modz > 5 then
                    let z = z + 1
                    abs(5 - modz)

            else
                    modz
    (y, z);;

给定z大于5的模块,我想修改z的值.即,因为split 27我期待结果(2,3).

split 22;;
val it : int * int = (2, 2)

split 27;;
val it : int * int = …

我有一个简单的函数,列出给定输入数的每个素数因子.它由以下组成:

let rec f n x a = 
    if x = n then
        x::a
    elif n % x = 0 then 
        f (n/x) x (x::a)
    else
        f n (x+1) a

let fact n = f n 2 []

fact 315
val factors : int list = [7; 5; 3; 3]

它的工作原理,但我想提出的是一个单一的功能:我如何定义fact与f直接嵌套在？我试图应用这里出色表达的概念,但我没有抽象如何f在一个参数one(fact)中嵌套三个参数function ().

如何在R中绘制一般的sin曲线？根据这篇文章的答案,我试过:

x <- seq(0,pi,length.out=100)
y <- sin(x)
plot(x,y,type="l")

实际上我真正想要的是这个图表,由gnuplot以下产生:

plot sin(x) linestyle 1

此外,我想知道为什么gnuplot即使我没有为变量赋值也会产生图形x.它是否具有预先指定的值或其他内容？

我构建了一个函数,给定一个组合列表,返回两个列表:

let rec split2 l =
    match l with 
    [] -> ([], [])
    | (x, y)::ls -> let (xs, ys) =
                                split ls in (x::xs, y::ys);;  

val split2 : l:('a * 'b) list -> 'a list * 'b list

lsts = [('a', 1); ('b', 2); ('c', 3); ('d', 4)]

split2 lsts;;
val it : int list * char list = ([1; 2; 3; 4], ['a'; 'b'; 'c'; 'd'])

现在,我将该概念应用于更复杂的列表:

let l1 = [('a', 1, 'a'); ('b', 2, 'b'); ('c', 3, …

这个问题在stackoverflow中并不新鲜,但我无法理解let与模式和in关键字绑定的行为.我的教科书更喜欢不常见的函数定义格式:

let foo = fun x -> let f = (fun x y -> x +y ) in f x    

所以我翻译了#light语法:

let foo x =
    let f y =
        x + y
    f x

如果我设置foo 4它返回我8.为什么？我无法理解函数内部实际发生了什么,即使这里有优雅的解释.为什么4成为双方争论x和y？

请考虑一个 C 程序，在给定的情况下x，它将返回y并且z使得y + z * 2 = x尽可能小y。粗略地说，我可以创建一个嵌套循环：

for(y = 0; y < x; ++ y){
    for(z = 0; z < x; ++z){
        if(y + 2 * z == x){
            printf("%d + 2 * %d = %d", y, z, x);
        }
    }
} 

我怎么能以功能方式翻译这种嵌套循环？可行吗？这是合理的还是我只是误判了这种方法？到目前为止我最好的尝试：

let foo x =
    let rec aux (y, z, q) =
        match (y + z * 2) with
        r when r …

我正在练习#define和typedef.根据这个有效的讨论,我认为我对这个问题有很好的掌握.目前,我正在使用这个简单的代码块:

#include <stdio.h>

/*typedef char *string;       with typedef the code works correctly*/

#define string char *

int main(void){
    string a[] = {"I", "like", "to", "fight,"}, 
           b[] = {"pinch", "and", "bight."};

    printf("%s %s %s %s %s %s %s\n",
        a[0], a[1], a[2], a[3], b[0], b[1], b[2]);
    return 0;
}

我知道这define给了预处理器指令.在这种情况下,替换string为char *.因此,a正确声明为char *a[],而b[]不是!这个问题很容易解决

string b[] = {"pinch", "and", "bight."};

但是我的教科书通过告诉读者#define可以通过精确添加 …

我正在尝试删除包含字母和带空格的字符之外的其他内容的行。数字，逗号，引号，数学符号：必须删除与它们的任何一行。

输入：

FISIOLOGIA UMANA
FISIOLOGIA UMANA
http://id.loc.gov/vocabulary/subjectSchemes/FI
Sepúlveda, Luis
La sirenetta Walt Disney
La sirenetta
CFIV007842
CFIV006619
Lubac, Henri : de
Roma

预期产量：

FISIOLOGIA UMANA
FISIOLOGIA UMANA
La sirenetta Walt Disney
La sirenetta
Roma

到目前为止，我:%g!:[A-Za-z]:d与一起使用Vim，应该可以解决问题。奇怪的是，它声明它匹配每行（如预期的那样），但是它不会删除发现非字母字符的行。这种行为背后的原因是什么？如何巧妙地解决这个问题？

我想对正态曲线下两个区间之间的区域进行着色/着色，例如示例中生成的曲线。间隔可以是 125:140 或超过 140 的段。

library(lattice)

e4a <- seq(60, 170, length = 10000)
e4b <- dnorm(e4a, 110, 15)
xyplot(e4b ~ e4a,
   type = "l",
   scales = list(x = list(at = seq(60, 170, 5)), rot = 45),
   panel = function(x, ...){
           panel.xyplot(x, ...)
           panel.abline( v = c(110, 125, 95, 140, 80, 95), lty = 2)
   })

我为R 图形基础系统找到了一个非常简单的解决方案，但我没有找到 Lattice 的等效解决方案。